home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / D / DiscStac1.cpt / DiscStac 1.0 / background_2563.txt < prev    next >
Encoding:
Text File  |  1988-02-03  |  10.0 KB  |  508 lines
  1. -- background: 2563 from stack: in.0
  2. -- bmap block id: 2477
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: DiscCase
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=31 top=163 right=216 bottom=75
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: DSHome
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual dissolve
  23.   go to card id 5341 of stack "Home"
  24. end mouseUp
  25.  
  26.  
  27.  
  28.  
  29. -- part 2 (button)
  30. -- low flags: 00
  31. -- high flags: 0004
  32. -- rect: left=33 top=219 right=255 bottom=77
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 32670 / 32670
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: 
  41. ----- HyperTalk script -----
  42. on mouseUp
  43.   show all cards
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 3 (button)
  49. -- low flags: 00
  50. -- high flags: 0004
  51. -- rect: left=33 top=257 right=294 bottom=76
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 20186 / 20186
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: 
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.  
  63.   answer "Sort all cards of this stack according to:" with "Artist" or "Title" or "Cancel"
  64.   if it is "Artist"
  65.   then sort by carf field 2
  66. else if it is "Title"
  67. then sort by card filed 3
  68.  
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part 4 (button)
  74. -- low flags: 00
  75. -- high flags: 0004
  76. -- rect: left=211 top=27 right=50 bottom=256
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 19381 / 19381
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: 
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   visual dissolve very fast
  88.   get id of prev card
  89.   if it is "card id 2976"
  90.   then hide field "Tracks"
  91.   go prev
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 5 (button)
  97. -- low flags: 00
  98. -- high flags: 0004
  99. -- rect: left=259 top=27 right=50 bottom=301
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 22308 / 22308
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: 
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   visual dissolve very fast
  111.   get id of next card
  112.   if it is "card id 2976"
  113.   then hide field "Tracks"
  114.   go next
  115. end mouseUp
  116.  
  117.  
  118.  
  119. -- part 6 (button)
  120. -- low flags: 00
  121. -- high flags: 0004
  122. -- rect: left=33 top=295 right=337 bottom=75
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 1008 / 1008
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: 
  131. ----- HyperTalk script -----
  132. on mouseUp
  133.   doMenu Print Card
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 13 (field)
  139. -- low flags: 00
  140. -- high flags: 4000
  141. -- rect: left=160 top=198 right=329 bottom=488
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 0
  145. -- font id: 21
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: 
  150.  
  151.  
  152. -- part 14 (field)
  153. -- low flags: 00
  154. -- high flags: 4000
  155. -- rect: left=207 top=51 right=70 bottom=488
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 0
  159. -- font id: 21
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 18
  163. -- part name: Artist
  164.  
  165.  
  166. -- part 15 (field)
  167. -- low flags: 00
  168. -- high flags: 4000
  169. -- rect: left=207 top=69 right=86 bottom=488
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 0
  173. -- font id: 21
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: Title
  178.  
  179.  
  180. -- part 16 (field)
  181. -- low flags: 00
  182. -- high flags: 4000
  183. -- rect: left=305 top=91 right=109 bottom=488
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 0
  187. -- font id: 21
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: 
  192.  
  193.  
  194. -- part 17 (field)
  195. -- low flags: 00
  196. -- high flags: 4000
  197. -- rect: left=305 top=108 right=126 bottom=488
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 0
  201. -- font id: 21
  202. -- text size: 12
  203. -- style flags: 0
  204. -- line height: 16
  205. -- part name: zDate
  206. ----- HyperTalk script -----
  207. on mouseUp
  208.  
  209.   put the date into field "zDate"
  210. end mouseUp
  211.  
  212.  
  213.  
  214.  
  215. -- part 18 (field)
  216. -- low flags: 00
  217. -- high flags: 4000
  218. -- rect: left=237 top=133 right=151 bottom=346
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 0
  222. -- font id: 21
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 16
  226. -- part name: Loct
  227.  
  228.  
  229. -- part 19 (field)
  230. -- low flags: 00
  231. -- high flags: 4000
  232. -- rect: left=237 top=152 right=170 bottom=346
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 0
  236. -- font id: 21
  237. -- text size: 12
  238. -- style flags: 0
  239. -- line height: 16
  240. -- part name: Class
  241.  
  242.  
  243. -- part 20 (field)
  244. -- low flags: 00
  245. -- high flags: 4000
  246. -- rect: left=396 top=153 right=171 bottom=488
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 0 / 0
  249. -- text alignment: 0
  250. -- font id: 21
  251. -- text size: 12
  252. -- style flags: 0
  253. -- line height: 16
  254. -- part name: 
  255.  
  256.  
  257. -- part 21 (field)
  258. -- low flags: 00
  259. -- high flags: 4000
  260. -- rect: left=396 top=133 right=152 bottom=488
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 0
  264. -- font id: 21
  265. -- text size: 12
  266. -- style flags: 0
  267. -- line height: 16
  268. -- part name: 
  269.  
  270.  
  271. -- part 23 (field)
  272. -- low flags: 80
  273. -- high flags: 4004
  274. -- rect: left=94 top=163 right=341 bottom=505
  275. -- title width / last selected line: 0
  276. -- icon id / first selected line: 0 / 0
  277. -- text alignment: 0
  278. -- font id: 21
  279. -- text size: 12
  280. -- style flags: 0
  281. -- line height: 16
  282. -- part name: tracks
  283. ----- HyperTalk script -----
  284. On MouseDown
  285.   hide field "tracks"
  286.   visual zoom in
  287.   show menubar
  288. End MouseDown
  289.  
  290.  
  291. -- part 24 (button)
  292. -- low flags: 00
  293. -- high flags: 0004
  294. -- rect: left=443 top=29 right=58 bottom=483
  295. -- title width / last selected line: 0
  296. -- icon id / first selected line: 8538 / 8538
  297. -- text alignment: 1
  298. -- font id: 0
  299. -- text size: 12
  300. -- style flags: 0
  301. -- line height: 16
  302. -- part name: tracksbutton
  303. ----- HyperTalk script -----
  304. on mouseUp
  305.   set visible of field "tracks" to not the visible of field "tracks"
  306. end mouseUp
  307.  
  308.  
  309.  
  310. -- part 39 (button)
  311. -- low flags: 00
  312. -- high flags: 0004
  313. -- rect: left=57 top=50 right=73 bottom=95
  314. -- title width / last selected line: 0
  315. -- icon id / first selected line: 1018 / 1018
  316. -- text alignment: 1
  317. -- font id: 0
  318. -- text size: 12
  319. -- style flags: 0
  320. -- line height: 16
  321. -- part name: 
  322. ----- HyperTalk script -----
  323. on mouseUp
  324.  
  325.   Answer "Choose Find Catagory" with "Track" or "All" or "Artist/Title"
  326.   put it into it2
  327.   Ask "Enter Search String"
  328.   if it2="All"
  329.   then
  330.   find it
  331.   if the result="not found"
  332.   then answer "String Could Not Be Found" with "OK"
  333.   exit mouseUp
  334. end if
  335. If it2="Track"
  336. then find it in field "Tracks"
  337. else
  338.   find it in field "Artist"
  339.   find it in field "Title"
  340. end if
  341. if it2 = "Track" and the result <> "not found"
  342. then show field "Tracks"
  343. if the result="not found"
  344. then answer "The Search String Could Not Be Found" with "OK"
  345.  
  346. end mouseUp
  347.  
  348.  
  349.  
  350. -- part 30 (button)
  351. -- low flags: 00
  352. -- high flags: 0000
  353. -- rect: left=160 top=107 right=127 bottom=289
  354. -- title width / last selected line: 0
  355. -- icon id / first selected line: 0 / 0
  356. -- text alignment: 1
  357. -- font id: 0
  358. -- text size: 12
  359. -- style flags: 0
  360. -- line height: 16
  361. -- part name: New Button
  362. ----- HyperTalk script -----
  363. on mouseUp
  364.   put the abbreviated date into field "ZDate"
  365. end mouseUp
  366.  
  367.  
  368.  
  369. -- part 31 (button)
  370. -- low flags: 00
  371. -- high flags: 0000
  372. -- rect: left=157 top=53 right=70 bottom=207
  373. -- title width / last selected line: 0
  374. -- icon id / first selected line: 0 / 0
  375. -- text alignment: 1
  376. -- font id: 0
  377. -- text size: 12
  378. -- style flags: 0
  379. -- line height: 16
  380. -- part name: New Button
  381. ----- HyperTalk script -----
  382. on mouseUp
  383.   get field "Artist" of prev card
  384.   put it into field "Artist"
  385. end mouseUp
  386.  
  387.  
  388.  
  389. -- part 32 (button)
  390. -- low flags: 00
  391. -- high flags: 0000
  392. -- rect: left=157 top=69 right=86 bottom=207
  393. -- title width / last selected line: 0
  394. -- icon id / first selected line: 0 / 0
  395. -- text alignment: 1
  396. -- font id: 0
  397. -- text size: 12
  398. -- style flags: 0
  399. -- line height: 16
  400. -- part name: New Button
  401. ----- HyperTalk script -----
  402. on mouseUp
  403.   get field "Title" of prev card
  404.   put it into field "Title"
  405. end mouseUp
  406.  
  407.  
  408.  
  409. -- part 33 (button)
  410. -- low flags: 00
  411. -- high flags: 0000
  412. -- rect: left=160 top=130 right=152 bottom=234
  413. -- title width / last selected line: 0
  414. -- icon id / first selected line: 0 / 0
  415. -- text alignment: 1
  416. -- font id: 0
  417. -- text size: 12
  418. -- style flags: 0
  419. -- line height: 16
  420. -- part name: 
  421. ----- HyperTalk script -----
  422. on mouseUp
  423.   get field "Loct" of prev card
  424.   put it into field "Loct"
  425. end mouseUp
  426.  
  427.  
  428.  
  429. -- part 34 (button)
  430. -- low flags: 00
  431. -- high flags: 0000
  432. -- rect: left=160 top=151 right=173 bottom=234
  433. -- title width / last selected line: 0
  434. -- icon id / first selected line: 0 / 0
  435. -- text alignment: 1
  436. -- font id: 0
  437. -- text size: 12
  438. -- style flags: 0
  439. -- line height: 16
  440. -- part name: 
  441. ----- HyperTalk script -----
  442. on mouseUp
  443.   get field "Class" of prev card
  444.   put it into field "Class"
  445. end mouseUp
  446.  
  447.  
  448.  
  449. -- part 40 (button)
  450. -- low flags: 00
  451. -- high flags: 0004
  452. -- rect: left=57 top=23 right=46 bottom=95
  453. -- title width / last selected line: 0
  454. -- icon id / first selected line: 1012 / 1012
  455. -- text alignment: 1
  456. -- font id: 0
  457. -- text size: 12
  458. -- style flags: 0
  459. -- line height: 16
  460. -- part name: 
  461. ----- HyperTalk script -----
  462. on mouseUp
  463.   visual dissolve
  464.   doMenu Recent
  465. end mouseUp
  466.  
  467.  
  468.  
  469. -- part 8 (button)
  470. -- low flags: 00
  471. -- high flags: 0004
  472. -- rect: left=10 top=49 right=72 bottom=48
  473. -- title width / last selected line: 0
  474. -- icon id / first selected line: 26865 / 26865
  475. -- text alignment: 1
  476. -- font id: 0
  477. -- text size: 12
  478. -- style flags: 0
  479. -- line height: 16
  480. -- part name: 
  481. ----- HyperTalk script -----
  482. on mouseUp
  483.   visual dissolve
  484.   go last
  485. end mouseUp
  486.  
  487.  
  488.  
  489. -- part 7 (button)
  490. -- low flags: 00
  491. -- high flags: 0004
  492. -- rect: left=10 top=23 right=46 bottom=48
  493. -- title width / last selected line: 0
  494. -- icon id / first selected line: 30557 / 30557
  495. -- text alignment: 1
  496. -- font id: 0
  497. -- text size: 12
  498. -- style flags: 0
  499. -- line height: 16
  500. -- part name: 
  501. ----- HyperTalk script -----
  502. on mouseUp
  503.   visual dissolve
  504.   hide field "tracks"
  505.   go first
  506. end mouseUp
  507.  
  508.